vb.关于Shell "explorer...

来源：百度知道 编辑：UC知道 时间：2024/09/20 21:46:48
Option Explicit

Private Sub Form_Load()

Dim s As String
s = "电影节"
Dim Myurl As String
Myurl = "http://www.baidu.com/s?kw=&sc=web&cl=3&tn=sitehao123&ct=0&rn=&lm=&ie=gb2312&rs2=&myselectvalue=&f=&pv=&z=&from=&word=" & s
Shell "explorer myurl", 1

End Sub

大家看一下这段代码错在哪里,下面是我在vb6.0运行后错误的图片.
我想做一个类似在文本框输入关键字,回车就能自动打开IE进行搜索的小程序...是打开IE搜索哦!要支持IE8.0...
嗯,我这里已经导入了让Microsoft Internet Consrols 控件不在IE8.0出错的注册表...
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\TypeLib\{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}]
[HKEY_CLASSES_ROOT\TypeLib\{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}\1.1]
@="Microsoft Internet Controls"
[HKEY_CLASSES_ROOT\TypeLib

Option Explicit

Private Sub Form_Load()

Dim s As String
s = "电影节"
Dim Myurl As String
Myurl = "http://www.baidu.com/s?kw=&sc=web&cl=3&tn=sitehao123&ct=0&rn=&lm=&ie=gb2312&rs2=&myselectvalue=&f=&pv=&z=&from=&word=" & s

Shell "C:\Program Files\Internet Explorer/IEXPLORE.EXE " + Myurl, 1

End Sub

Shell "IE的绝对路径 myurl", 1

问题出在 myurl 不该写在引号里面，写在引号里面，就只是那 5 个字母，而不是你希望的链接地址了。

Shell "explorer " & myurl , 1